home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs55.d81 / math-64 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  4KB  |  132 lines
  1. 1 REM*COPYRIGHT 83*                          * CARDCO,INC *                          *E.J. LIPPERT*
  2. 2 ER$="                                    ":EN$="[145][145][145][145][145]":PRINT"[147][144]";
  3. 3 ER$=ER$+ER$+ER$+ER$+ER$+ER$
  4. 4 GOSUB5:GOTO10
  5. 5 POKE53280,15:POKE53281,15:GOSUB106:RETURN
  6. 6 GETA3$:IFA3$=""GOTO6
  7. 7 A3=VAL(A3$):A=A3
  8. 8 IF(A3=0)AND(A3$<>"0")THENGOTO6
  9. 9 RETURN
  10. 10 GOSUB120
  11. 11 D$="[144]":J=A3+1:TI$="000000":POKE198,0:PRINT"[147]"
  12. 12 IF(J<1)OR(J>10)THEN11
  13. 13 J3=J:ONJGOSUB36,43,50,53,60,68,73,84,95,101:AX=VAL(TI$)
  14. 14 POKE198,0:PRINT"[147]":F=F+1:IFF<20THEN13
  15. 15 PRINT"[147]YOU GOT"G:PRINT"OUT OF  20":PRINT"FOR A SCORE"
  16. 16 PRINT"OF";:PC=G/20*100:PRINTPC
  17. 17 PRINT"YOUR TIME WAS":PRINT""AX"SECONDS"
  18. 18 PRINT"YOUR TOTAL SCORE WAS":
  19. 19 AY=(60/AX)*100
  20. 20 TJ=INT(((2*PC)+(PC*AY/100))/3*100)/100:TS=TJ+(TJ*.1*J3)
  21. 21 PRINT""TS"[144]"
  22. 22 PRINT"    PRESS ANY KEY [146]"
  23. 23 GETA$:IFA$=""GOTO23
  24. 24 PRINT"[147](P)LAY AGAIN ?":PRINT"(Q)UIT"
  25. 25 GETA$:IFA$=""GOTO25
  26. 26 IFA$="Q"THENSYS64738
  27. 27 IFA$="P"THENRUN
  28. 28 GOTO25
  29. 29 GOSUB6:IFA3=N(H)THENG=G+1:PRINTD$"CORRECT !":FORI=0TO300:NEXT:RETURN
  30. 30 PRINTD$"WRONG  ANS:"N(H):FORI=0TO600:NEXT:PRINT"[147]":RETURN
  31. 31 C=D:N(1)=INT(RND(0)*9):N(2)=INT(RND(0)*8)+2:IF(N(1)=10)OR(N(2)=10)THEN31
  32. 32 RETURN
  33. 33 H=INT(RND(0)*3):IF(N(0)>9)AND(H=0)THENGOTO33
  34. 34 IF(N(0)=0)AND(J>2)AND(N(H)<>0)THENGOTO33
  35. 35 RETURN
  36. 36 PRINTD$EN$ER$ER$:GOSUB31:N(0)=N(1)+N(2)
  37. 37 GOSUB33:FORI=0TO2:N$(I)=STR$(N(I)):IFI=HTHENN$(I)=" ?"
  38. 38 NEXT:FORI=0TO2
  39. 39 IFLEN(N$(I))=2THENN$(I)=" "+N$(I)
  40. 40 NEXT:PRINTD$"[145][145]"N$(1):PRINTD$" +"N$(2):PRINTD$"[192][192][192][192]":PRINTD$""N$(0)
  41. 41 GOSUB29
  42. 42 RETURN
  43. 43 PRINTD$EN$ER$ER$:GOSUB31:N(0)=N(1)+N(2)
  44. 44 GOSUB33:FORI=0TO2:N$(I)=STR$(N(I)):IFI=HTHENN$(I)=" ?"
  45. 45 NEXT:FORI=0TO2
  46. 46 IFLEN(N$(I))=2THENN$(I)=" "+N$(I)
  47. 47 NEXT:PRINTD$"[145][145]"N$(0):PRINTD$" -"N$(2):PRINTD$"[192][192][192][192]":PRINTD$""N$(1)
  48. 48 GOSUB29
  49. 49 RETURN
  50. 50 K=INT(RND(0)*2)+1:ONKGOSUB36,43
  51. 51 F=F+1:IFF<20THEN50
  52. 52 RETURN
  53. 53 PRINTD$EN$ER$ER$:GOSUB31:N(0)=N(1)*N(2)
  54. 54 GOSUB33:FORI=0TO2:N$(I)=STR$(N(I)):IFI=HTHENN$(I)=" ?"
  55. 55 NEXT:FORI=0TO2
  56. 56 IFLEN(N$(I))=2THENN$(I)=" "+N$(I)
  57. 57 NEXT:PRINTD$"[145][145]"N$(1):PRINTD$" [214]"N$(2):PRINTD$"[192][192][192][192]":PRINTD$""N$(0)
  58. 58 GOSUB29
  59. 59 RETURN
  60. 60 PRINTD$EN$ER$ER$:GOSUB31:IFN(1)=0THENN(1)=1
  61. 61 IFN(2)=0THENN(2)=1
  62. 62 N(0)=N(1)*N(2)
  63. 63 GOSUB33:FORI=0TO2:N$(I)=STR$(N(I)):IFI=HTHENN$(I)=" ?"
  64. 64 IFLEN(N$(0))=2THENN$(0)=" "+N$(0)
  65. 65 NEXT:PRINTD$""N$(1):PRINTD$""N$(2)"[221][145][157][176][192][192][192][192][157][157][157][157]"N$(0)
  66. 66 GOSUB29
  67. 67 RETURN
  68. 68 PRINT"[147]":POKE198,0:J=INT(RND(0)*5)+1:IFJ>2THENJ=J-1
  69. 69 IF(J<1)OR(J>4)THEN68
  70. 70 ONJGOSUB36,43,53,60
  71. 71 F=F+1:IFF<20THEN68
  72. 72 RETURN
  73. 73 PRINTD$EN$ER$ER$:GOSUB31
  74. 74 IFN(1)=0THENN(1)=1
  75. 75 IFN(2)=0THENN(2)=1
  76. 76 IFN(1)>N(2)THEN73
  77. 77 N(0)=N(1)/N(2)
  78. 78 IFN(0)=1THEN73
  79. 79 GOSUB33:IFH=0THEN79
  80. 80 FORI=0TO2:N$(I)=STR$(N(I)):IFI=HTHENN$(I)=" ?"
  81. 81 NEXT:PRINTD$"[145]"N$(1)"[157][192][157][157]"N$(2)"[145] ="N$(0)
  82. 82 GOSUB29
  83. 83 RETURN
  84. 84 PRINTD$EN$ER$ER$:GOSUB31
  85. 85 IFN(1)=0THENN(1)=1
  86. 86 IFN(2)=0THENN(2)=1
  87. 87 IFN(1)=>N(2)THEN84
  88. 88 N(0)=N(1)/N(2)
  89. 89 GOSUB33:IFH=0THEN89
  90. 90 FORI=0TO2:N$(I)=STR$(N(I)):IFI=HTHENN$(I)=" ?"
  91. 91 NEXT:N$(0)=STR$(N(0)*100):N$(0)=LEFT$(N$(0),5)
  92. 92 PRINTD$N$(1)" IS"N$(0)"% OF"N$(2)
  93. 93 GOSUB29
  94. 94 RETURN
  95. 95 PRINTD$EN$ER$ER$:N(1)=INT(RND(0)*98):N(0)=SQR(N(1)):N$(1)=STR$(N(1)):N$(0)=STR$(N(0))
  96. 96 PRINTD$"[208][206][145][206][163][163][163][163][163][163][163][163]"
  97. 97 PRINTD$""N$(1):
  98. 98 N$(0)=RIGHT$(N$(0),LEN(N$(0))-2):N$(0)=" ?"+N$(0):PRINTD$""N$(0)
  99. 99 N$(0)=STR$(N(0)):N$(0)=LEFT$(N$(0),2):N(0)=VAL(N$(0))
  100. 100 H=0:GOSUB29:RETURN
  101. 101 POKE198,0:PRINT"[147]":J=INT(RND(0)*8)+1
  102. 102 IF(J<1)OR(J>7)THEN101
  103. 103 ONJGOSUB36,43,53,60,73,84,95
  104. 104 F=F+1:IFF<20THEN101
  105. 105 RETURN
  106. 106 IFPEEK(638)=239THENRETURN
  107. 107 POKE638,239
  108. 108 PRINT"THIS TEST WILL TEST YOUR ACCURACY AND   YOUR SPEED IN ANSWERING."
  109. 109 PRINT"DIFFICULTY LEVELS WILL PRESENT DIFFERENTTYPES OF MATH PROBLEMS."
  110. 110 PRINT"AFTER ANSWERING EACH QUESTION YOU WILL  BE SHOWN THE CORRECT ANSWER."
  111. 111 PRINT"AFTER YOU HAVE ANSWERED 20 QUESTIONS YOU"
  112. 112 PRINT"WILL BE GIVEN YOUR SCORE IN NUMBER OF"
  113. 113 PRINT"CORRECT ANSWERS, PERCENTAGE OF CORRECT"
  114. 114 PRINT"ANSWERS AND A GRAND TOTAL SCORE BASED ON"
  115. 115 PRINT"ACCURACY AND TIME REQUIRED TO ANSWER ALL"
  116. 116 PRINT"OF THE QUESTIONS COMPARED TO A STANDARD."
  117. 117 PRINT"     PRESS ANY KEY TO PROCEED [146]"
  118. 118 GETA$:IFA$=""GOTO118
  119. 119 RETURN
  120. 120 PRINT"[147]     0. ADDITION"
  121. 121 PRINT"     1. SUBTRACTION
  122. 122 [153]"     2. BOTH OF THE ABOVE"
  123. 123 [153]"     3. MULTIPLICATION"
  124. 124 [153]"     4. DIVISION"
  125. 125 [153]"     5. ALL OF THE ABOVE"
  126. 126 [153]"     6. FRACTIONS"
  127. 127 [153]"     7. PERCENTAGES"
  128. 128 [153]"     8. SQUARE ROOTS"
  129. 129 [153]"     9. ALL OF THE ABOVE"
  130. 130 [153]"        CHOOSE ONE OF THE ABOVE (0-9)"
  131. 131 [141]6:[153]"LOAD":[142]
  132.